﻿Public Class CoreDiameters
    Inherits Telerik.Web.UI.RadAjaxPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            rgCoreDiameter.DataBind()
        End If
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Try
            Dim dict As New Dictionary(Of String, Object)
            dict.Add("CoreDiameter", txtCoreDiameter.Text)
            dict.Add("CreatedDate", DateTime.Now)

            BL.CoreDiameters.InsertCoreDiameter(dict)
            rgCoreDiameter.DataBind()

            txtCoreDiameter.Text = ""

        Catch ex As Exception
            WebMsgBox.ShowError(ex.Message)
        End Try
    End Sub

End Class